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DISCLAIMER 


The information in this document is subject to change without notice and should not be 
construed as a commitment by the Concurrent Computer Corporation. The Concurrent 
Computer Corporation assumes no responsibility for any errors that may appear in this 
document. 


The software described in this document is furnished under a license, and it can be used or 
copied only in a manner permitted by that leense. Any copy of the described software 
must include the Concurrent Computer Corporation copyright notice. Title to and 
ownership of the described software and any copies thereof shall remain in the Concurrent 
Computer Corporation. 


The Concurrent Computer Corporation assumes no responsibility for the use or reliability of its 
software on equipment that is not supplied by Concurrent Computer Corporation. 


The Concurrent Computer Corporation, 
2 Crescent Place, Oceanport, N.J. 07757 


© 1990 by The Concurrent Computer Corporation 


Printed in the United States of America 
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The Software Release Notes are designed to supplement the information in this product’s 
user guides and reference manuals. This guide does not eliminate the need to read and 
understand the information contained in the product documentation package, as it is meant 
solely to be an aid to the user in performing initial installation of the product and 


to provide product overview information. 
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DOCUMENT ORGANIZATION 


This packaging information document is applicable to all FORTRAN VII related products. All 
of the information in this document is applicable to all packages unless otherwise specified. 


The various packages related to the FORTRAN product are listed in the following table and 
described in this document: : 


saSk rake te acpi i nea A See ce RRR A ACN 


Sales Order Number _| Package Number Package Description eee 
S7x-225 _ 04-149 Universal FORTRAN Language System 
$70-060 04-175 Series 3200 FORTRAN Enhancement Package 
570-228 04-177, | FORTRAN Performance Utilities Package 

__DS7x-232 __. 04-180 _FORTRAN VII Universal Compiler Upgrade __ 
S7x-224 - FORTRAN VIL Compiler | 


The cover page of this document identifies the package that has been delivered to you. Please 
follow the installation steps specific to this package. 


1, PRODUCT OVERVIEW 


The FORTRAN R06-00 release is a major release of the FORTRAN Language System. 
Following is a summary of enhancements: 


e New edit descriptors \ and $ to suppress carriage return at the end of an output operation. 


The # substring length specifier. 


New relational operators; Fxclusive OR (.LOR.) and NOT (°). 
e DO/END DO statements 

¢ DO WHILE statement 

e DO UNTIL statement 

e New data types: INTEGER*1, LOGICAL*2, BYTE 
Hexadecimal REAL and DOUBLE PRECISION constants. 


e O and Z typcless constants. 


MIL STD 1753 bit manipulation routines; ISHFTC, IBSE'T, IBITS, MVBITS and IBCLR. 


New and Enhanced Compiler Start/Instream options: 


Start/Instream O 


Description 


tion 


INT2 All integer variables with non-explicit lengths treated as INTEGER*2 
IBYTE The BYTE statement will be treated as an INTEGER*1 statement 
LBYTE The BYTE statement will be treated as a LOGICAL*1 statement 
LTORBIT Bit positions counted from left to right (i.c. MSB = Bit 0) 

RTOLBIT Bit positions counted from right to left (i.e. MSB = Bit 31) 

TABLES 


Dump tables for E/SP 
Target code to the MICRO II, MICRO V, and 3280E respectively 
Source contains special E/SP-generated, non-FORTRAN constructs 


TARGET={3283 3285 3288} 
XFORT 


(N)F66DO All DO-loops will be executed at least once 
(N)PASSBYADDRESS All scalar arguments to a subprogram assumed "pass by address” 
(N)REENTRANT Generate reentrant code 


(N) TRANSCENDENTAL 
(N)DEBUG 
(N)SAFE 
( 
( 


Generate RTL calls instead of 328X transcendental micro-instructions 
Generate code which includes debugger information 

The embedded assembly code can be "safely" parallelized by [o/SP 
Allow non-standard conforming aliasing of dummy arguments for E./SP 
Controls generation of object code for E/SP 
Modified to replace F7D with F70/Z and su 


e Support for E/SP. 


e Expanded compiler tables to increase the compiler’s capacity for processing data statements 
and doing optimization. 
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2. PRODUCT IDENTIFICATION, AVAILABLE MEDIA / DOCUMENTATION 
This section lists the available packages for each of the constituents of the FORTRAN product. 


9.1 UNIVERSAL FORTRAN LANGUAGE SYSTEM - package 04-149 


Product Title: Universal FORTRAN Language System 
Software Package 


Part Number: 04-149 RO5-00 
Sales Order Number: — S7x-226 ees 


The Universal FORTRAN Language System Software Packages that are currently available 


are: 
Sales Order Number Part Number Software Package —_ cet gaatehel 


04-149M71R05 | Universal FORTRAN Language System Software 
9-track, 1600 BPI Magnetic Tape) and Documentation Package 


04-149ML1RO5 | Universal FORTRAN Language System Software 
1/4" Streaming Tape) and Documentation Package 


04-149M99RO05 Universal FORTRAN Language System Documentation 
Package 


** S7x will be one of the four license categories. | 


S7x-225-ABC** 


S7x-225-ABW** 


S7x-225-BCM** 
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2.2 SERIES 3200 FORTRAN ENHANCEMENT PACKAGE - package 04-175 


Product Title: Series 3200 FORTRAN Enhancement 
Software Package 


Part Number: 04-175 RO3 


Sales Order Number: _$70-060 
The Series 3200 FORTRAN Enhancement Software Packages that are currently available are: 
Sales Order Number _ | Part. Number Software Package 


S70-060-ABC** 04-175M71R0O3 | Series 3200 FORTRAN Enhancement Software 
9-track, 1600 BPI Magnetic Tape) and Documentation Package 


$70-060-ABW** 04-175ML1RO3 | Series 3200 FORTRAN Enhancement Software 
1/4" Streaming Tape) and Documentation Package | 


$70-060-BCM** 04-175M99RO3 | Serics 3200 FORTRAN Enhancement Documentation 
Package 


2.8 FORTRAN VII PERFORMANCE UTILITIES - package 04-177 


Product Title: FORTRAN Performance Utilties 
Software Package 


Part Number: 04-177 RO4 


Sales Order Number: S70-228 


The FORTRAN Performance Utilities Software Packages that are currently available are: 
Software Package 
FORTRAN Performance Utilities Software 
9-track, 1600 BPI Magnetic Tape) and Documentation Package 
S70-228-ABW** FORTRAN Performance Utilities Software 
1/4" Streaming Tape) and Documentation Package 


S70-228-BCM** 04-177M99R04 | FORTRAN Performance Utilities Documentation 
Package 
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2.4 FORTRAN VII UNIVERSAL COMPILER UPGRADE - package 04-180 


FORTRAN VII Universal Compiler Upgrade 
Software Package 


Product Title: 


Part Number: 04-180 R04 


S7x-232 


Sales Order Number: 


The FORTRAN VII Universal Compiler Upgrade Packages that are currently available are: 


Sales Order Number 


S7x-224-ABC** 


Part Number 
()4-180M7 104 


9-track, 1600 BPI Magnetic Tape) and Documentation Package | 
FORTRAN VII Universal Compiler Upgrade Software 
1/4" Streaming Tape) and Documentation Package Os esa 


FORTRAN VII Universal Compiler Upgrade Documentation 
Package 


37x will be one of the four license categories. _ 


| S7x-224-ABW** 04-180MIL.1I04 


S7x-224-BCM** 


04-180M99R04 


* 


2.5 FORTRAN VII COMPILER - package 04-459 


Product Title: FORTRAN VII Compiler | 


Software Package 
Part Number: 04-459 ROO 


Sales Order Number: S7x-224 


The FORTRAN VII Compiler Packages that are currently available are: 


Part Number Software Package 


04-180M71ROO | FORTRAN VII Compiler Software 
9-track, 1600 BPI Magnetic Tape) and Documentation Package 


04-180ML1R00 | FORTRAN VII Compiler Software 
1/4" Streaming Tape) and Documentation Package 


FORTRAN VII Compiler Documentation 
Package 


Sales Order Number 
S7x-232-ABO** 


S7x-232-ABW** 


S7x-232-BCM** 04-180M99I00 


** S7x will be one of the four license categories. 
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8. PACKAGE DEFINITION 
3.1 Files 


This table lists the files that belong to the various FORTRAN packages. Note that the naming 
conventions for some of the files have changed since the previous release. The extensions of Run 
Time Library (RTL) files have been changed from OBJ to LIB. Also, the math RTL file names 


have changed from PIEMxxx to F7Mxxx. 


PACKAGES 04-XXX 


yes 
yes 


y' 


File Name Part Number 


Description 


INFORM.CSS 


03-376 RO6-00 


F7Z080.ERR 03-306 RO6-00 FORTRAN VII Z & O compiler 
Error file 


F7LIB60.LIB RTL with no argument checking 
F7LIB60A.LIB RTL with argument checking 
F7RTLLIB.CSS RTL Building CSS 

MPT.LIB ROS compatible RTL 


F7REL60.LIB 07-203F06 RO6-00 | RELIANCE compatibility RTL 


F7M60.LIB 07-305F01 RO6-00 


F7M680A.LIB 07-306F02 06-00 


FORTRAN VII Z compiler Task 
for MAT Machines 


EF 
A 


FORTRAN VII Z compiler Task 
for MAC Machines 


FORTRAN VII © compiler ‘Task 
file 


zs 
a 


yes 


: 


| ca 
Q a 
c @ 


yes 
yes 
yes 


+ 


System Math Library without 


hoe 


argument checking 


System Math Library with 


argument checking 


F7M60X.LIB 07-305F03 RO6-00 | System Math Library WCS 
version without argument 


checking(3200 scries) 


F7M60AX.LIB 


07-305F'04 RO6-00 | System Math Library WCS 
version with argument 


checking(3200 serics) 


F7M60W.LIB 


07-305F05 RO6-00 | System Math Library WCS 
version without argument 


checking(8/32) 
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PACKAGES 04-XXX 


File Name Part Number Description 


fee 
< 
fea) 


07-305F06 RO6-00 | System Math Library WCS 
version with argument 


checking(8/32) 


<< 
3 
we 


MICRTL45.WCS 03-480F01 ROO-0! | Models 4240, 3260, 3250XP 
and 3200MPS/3260MPS CPU | y 


microcode RTL routines 


MICRTL30.WCS 03-480F02 ROO-01 | Models 3212, 3230, 3230XP, 
3230MPS(CPU & APU) yee | yee 
microcode RTL routines ; 

MICRTLAP.WCS | 03-480I°03 ROO-01 | 3200MPS/3260MPS APU yes | 
microcode RTL routines 

LDWCS.OBJ 03-170 RO1-02 Model 8/32 Writable . 
Control Store(WCS) yes | yes 
Load Program 


s 


rs | yes 


CSS to run CRATAB 


JRATAB.CSS 03-439F04 1206-00 


F7PFUT.OBJS 03-439F 05 ROG-00 | Performance Utilities 
Object Library 


FéRTLW.OBJ 07-178 ROO-00 FORTRAN VI Writable 
Control Store(WCS) yes | yes 
Run-Time Library 
F7RTL60.ERR 03-223 RO6-00 FORTRAN RTL Error yes 
Message File 
NEQUF7.TSK 03-445 F00-00 FORTRAN VIL EOU ‘Task 
(08/32 RO6-02 thru yes yes 
RO6-01 Version) 
EOUGIF7.CSS 03-446 RO6-00 FORTRAN VH EOQU CSS 
(OS/32 ROS-02 thru yes yes 
RO6-01 Version) 
LOUF7.CSS 03-446F01 RO6-00 | FORTRAN VII EOU CSS 
(OS/32 R06-02 Version yes yes 
and above) 
F7HLOC.CSS 03-208 R06-00 An ASCII file which 
builds the High Level yes yes 
FVIL compiler CSSs 
XPATAB.TSK 03-439F01 RO6-00 | XPA task image yes i yes 
XPATAB.CSS 03-439F 02 RO6-00 | CSS to run XPATAB yes a ae yes 
CRATAB.TSK 03-439103 ROG-00 | CRA task image a oe yes 
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38.2 Documentation 


The FORTRAN Language System Documentation Packages consist of the following manuals: 


PACKAGES 01-XXX 


Publication Number | Revision Level Publication Name 


48-017F00 R04-00 FORTRAN VII Language and Syntax - 
A Reference 
48-010F 00 R04-00 Developing Programs with FORTRAN VII - 


A Guide 
48-025F00 RO3-00 


48-152F00 


System Math Library Reference Manual 


OS System Support RTL Reference 


Manual 


48-095F00 


Series 3200 FORTRAN Enhancement 


Package Reference Manual 


04-149M95 


cao il 


ROS-00 


Universal FORTRAN Language 


Release Notes 


Series 3200 FORTRAN Enhancement 


Release Notes 


FORTRAN Performance Utilities 


Release Notes 


FORTRAN VII Universal Compiler 
Upgrade Release Notes 


FORTRAN VII Compiler 


Release Notes 


FINAL 11/90 


4. SPECIFIC REQUIREMENTS 
4.1 Software 


The software packages listed below must be of proper revisions to use all the FORTRAN 
Language System packages. The package number and minimum revision level of each is as 
indicated: 


Product Name _| Sales Order Number_| 
S7x-016 
MTM (IR08-02) | ~ §7x-017 


$80-016 


Part Number 
04-082-R17__ 
04-083-R11 
03-242 


NOTE 


CAL code generated by FORTRAN VII compilers cannot be compiled using revisions 
below CAL/32 RO1. 


4.2 Hardware 


The FORTRAN Language System Packages run on all Concurrent Computer Corporation 32 bit 
processors. 
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5, UNPACKAGING AND INSTALLATION 
5.1 Magnetic Tape (1600 and 1/4" Streamer Tape) 


The files are supplied on magnetic tape in OS/32 Backup format. The unpackaging procedure 
involves restoring the files from tape to a disk utilizing OS/32 Gackup. Please note that the 
files should be restored onto the system account on the system volume for general purpose use. 


After selecting a disk onto which the files are to be copied, review the disk filenames to 
ensure that they do not conflict with the filenames in this package, as listed in Section 3.1 of 
this document. Rename any conflicting filenames to some other appropriate name prior 
to backing down the distribution tape. 


NOTE 


The files supplied in this package must not be renamed, because the command 
substitution system (CSS) files require specific filenames as listed in the Package 
Description section. 


To unpackage the files from the system console or Multi-Terminal Monitor (MTM) terminal, 
mount the distributed tape and run OS/32 BACKUP via the following commands: 


LOAD BACKUP 
TASK BACKUP 


START ,JN=devl:,0UT=dev2:, LIST=dev3:,VERIFY,CLOSE=REW 


where, 
devi is the device name for the magnetic tape drive 
dev2 is the device name for the destination disk 
dev3 is the device name for the printer or list device 


Note that all device names have the standard OS/32 format. They are dependent on the 
user’s system configuration and may be determined by entering the OS/32 command 
‘DISPLAY DEVICES’ at the system console or user’s terminal. 


NOTE 


In running OS/32 BACKUP from an MTM terminal, the user must sign on to an 
account which has bare disk access and the task account privilege enabled. 


For further information on Backup, see the OS/32 System Support Utilities Reference Manual, 
Publication Number 48-031. 
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6. POST-INSTALLATION FROCEDURES 


Before using the installed software, it is recommended that the following procedures be 
executed: 


e Using OS/32 BACKUP, copy the software files for archiving. 


e After marking the disk on and setting the appropriate volume, enter the command 
substitution system (CSS) call: 


INFORM [list-device:] 


Licensing information regarding this product will be displayed on the user’s terminal by 
default, or to an optional list-device specified in the CSS call. 
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7 BUILDING THE COMPILERS AND RTL 


The distributed package does not contain object files to build the compilers. The task files are 
already supplied. However, the Run-Time Library (RTL) must be built before using any of the 
compilers. 


7.14 OPTIMIZING AND DEVELOPMENT COMPILERS 
This section is applicable only to the following packages: 
04-149 -- Universal Fortran Language System 


04-180 -- Fortran VII Universal Compiler Upgrade 
04-459 -- Fortran VII Compiler 


71.4 FORTRAN VII O 8 Z DEFAULT OPTIONS 


The FORTRAN VIL O & Z compilers have been built with the following default task options: 


NX5SVC1 NVFCO NAPCONTROL  UTASK 

FLOAT NRESIDIENT = NCONTROL NCOMMUNICATE 
SVCPAUSE DFLOAT ROLL ACCOUNTING 
ACPRIVILEGIE NDISC NONIVERSAL NKIEYCHIECK 
NSEGMENTED NAPAUSE NINTERCEPT OVEERLAY-IN-TASK 


NDTABLES NAPUONLY  NAPMAPPING 


and the following default LINK options: 


TEQSAV=ALL LU=16 SYSSPACE=XFFFFF = WORK=(X5000,XAFFFFF)* 
IOBLOCKS=4 PRIORITY=(128,128) §TSW=X3F001000 ABSOLUTE=X100 


* F70 and F7ZMAC compiler tasks are linked with: WORK=(X5000,X90000) 


The number of logical units available to the compiler for purposes of source 
inclusion(via $INCLUDE) is seven(7); that is from LU 9 to LU 15. This represents an 
LU option specification of 16. 


For more information concerning LINK and its options, consult OS/32 LINK Reference 
Manual, Publication number 48-005. 


WARNING 


If Writable Control Store (WCS) is loaded on a 3200 series processor, with the 
exception of 3280, the FORTRAN VII Z and O compilers will assume the presence of 
the FORTRAN Enhancement Package (FEP) and automatically switch to the use of 
the microcoded enhancement routines. This can cause a system crash if the FEP is not 
loaded. To run these compilers on a system having a WCS loaded with user-written 
microcode routines, apply the following patch using OS/32 PATCH utility: 


>IMAGE F7x.TSK,F7NWCS.TSK 


>GET *TASK 
>EXAMINE 124,2 
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124:0000 0001 
>MODIFY 124,0,0 
>EXAMINE 124,2 

124:0000 0000 
>SAVE 
>END 


The new task is to be used with the distributed CSSs. It must either be renamed to the oldname 
or the CSSs must be changed to Joad this new task. 


For those installations which wish to change some of the task options, OS/32 PATCH Utility 
can be used. Refer to OS/32 PATCH User Guide, Publication Number 48-016, for more 
information. 
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7.2 BUILDING RUN-TIME LIBRARY (RTL) 


4 
This section is applicable only to the following packages: 


04-149 -- Universal Fortran Language System 
04-459 -- Fortran VII Compiler 


Concurrent Computer Corporation has divided the FORTRAN VII R0O6-00 Run-Time 
Library into three parts so that other products may take advantage of the separate 
functions incorporated in each part. 


« The first, called the FORTRAN VII Run-Time Library (07-203), contains all the 
environmental support routines necessary for a FORTRAN task, such as the Input/Output 


(1/O) Formatter, Language Pxtensions, Real-Time functions, MPS support routines and so 
on. 


» The second, called the System Math Library (07-305), contains all the mathematical 
routines, such as SIN, COS, and so on. 


e The third, called the Fortran VI RO5 compatible Run-Time Library provides object 


compatibility so that object generated by RO5 compilers can be linked with object generated 
by RO6 compilers. 


Additionally, there are more files for math libraries: two files for support of WCS for 3200 series 
and two files for support of WCS for 8/32 processors. Note that a package may not contain all 
six variants of the math library. 


All Libraries have been generated with and without argument checking; thus there are two 
versions of each library. (See Section 3.1 of this document for a complete part description.) 


More information on the WCS libraries may be found in the System Mathematical Run- 
Time Library Reference Manual, Publication number 48-025, and Series 3200 FORTRAN 
Enhancement Package Reference Manual, Publication Number 48-095. 


It is recommended that when a program is being debugged, the user’s task should be established 
using the argument checking run-time library. This will enable the user to find any illegal 
argument types which are being passed to any library routine. 


The system math libraries should first be merged with the FORTRAN VII Run-Time Library so 
that a complete FORTRAN Run-Time Library is available before using the compiler. Likewise, 
the RO5 compatible library should be merged if object compatibility is desired. 


The F7RTLLIB.CSS is supplied with the Package to be used to merge the appropriate files. 
F7RTLLIB.CSS accepts 4 arguments: 


1. Specifies the argument checking option for the Run-Time Library (07-203), and the System 
Math Library (07-305F02). 


A -- argument checking. 


The default is no argument checking. 


to 


Specifies the WCS option for the System Math Library (07-305F 04). 
X -- 3212/3230/3240/3250/3200MPS/3260MPS WCS (07-305 F03-F04). 


W -- 8/32 WCS (07-305 F05-F06). 
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The default is no WCS (07-305 F01-F'02). 
3. Specified whether to include the compatible library (07-305F04) 


C -- R05 compatibility 


The default is no compatibility. 


4. Specifies the filename (.LIB already assumed) on which this generated RTL is to be 
created. It defaults to F7RTLG6O.LIB. Note that the Ease-of-Use (MOUF7.CSS} and 
F7HLOC-generated CSSs use F7RTLG6O.LIB in their LINK sequences. 


Examples to build the RTL: 
e F7RTLLIB 


* creates a FORTRAN VIT RTL on F7RTLGO.LIB without WCS and, without argument 
checking, and without ROS compatibility. 


e F7RTLUIB A,X,C,F7RTLXAC 


* creates a complete argument-checking, WCS-RTI on the file F7RTLXAC.LIB which is 
object compatible with ROS. 


Please note that not all object libraries are supplied with every package. If an object library is 
not available to satisfy the requested F7RTLLIB command, the attempt to build the library will 
be terminated and a message will be issued. For example, if an attempt is made to build a 3200 
Series WCS RTL and F7MG60X.OBJ is not present, F7RTLLIB will terminate after issuing a 
warning that F7M60X.OBJ is not present. 


The following table shows the libraries that can be built with the various packages: 


PACKAGES 04-XXX 
Run Time Library 


NON-WCS RTL 
SERIES 3200 WCS RTL 
39 WCS RTL 


Examples: 
1. Only package 04-149 can build all variations. 


2. With the package 04-459, one can only build a NON-WCS Run Time Library (Argument 
checking and Non-Argument checking). A WCS-RTL cannot be built with this package. 
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7.8 THE FORTRAN VI FASE-OF-USE PROCEDURES 


This section is applicable only to the following packages: 


04-149 -- Universal Fortran Language System 
04-459 -- Fortran VII Compiler 


The FORTRAN VII [ase-of-Use System is supplied as an update for users of the current Ease- 
of-Use System (03-342) which is supplied with the O5/32 Multi-Terminal Monitor (MTM) 
Package (04-083). This update will permit users to make the program development commands of 
WOU available for FORTRAN compilers. This system is not compatible with any revision of 
OS/32 prior to OS/32 ROG6-01. The FORTRAN VIT High Level Operator Command (F7HLOC) 
procedures are supplied in the package for users of OS/32 J05-02. 


Note that two versions of the Hase-of-Use CSS procedure are supplied. EOUF7.CSS is for users 
of OS/32 RO6-02 and above, and is incompatible with OS/32 RO06-01. EOQU6IF7.CSS and 
NIEQUF7.TSK are supplied for users of OS/32 RO6-01. 


The parts supplied in this package consist of an Ease-of-Use Program Environment Monitor 
Task and an [ase-of-Use CSS Procedure. When the Ease-of-Use CSS is run, it will update the 


program development procedures generated by MTM EOU.CSS to reflect FORTRAN VII RO6-00 
changes. 


Users with OS/32 RO7-01 and above 
In order to properly update the Ease-of-Use System, the user must do the following: 


1, EHOU.CSS, which is supplied with the OS/32 MTM package, must be run from an MTM 
terminal. Once started, this CSS will interactively explain its own use and assist in 
tailoring itself to the user’s installation. 


2. EOUF7.CSS must then be run to update the CSSs created above. 


Users with OS/32 R06-02 
In order to properly update the Ease-of-Use System, the user must do the following: 


1. Delete NEOUF7.TSK and EQUGIF7.CSS as these parts are incompatible with the OS/32 
RO6-02 HOU System. 


EOU.CSS (03-342 F04 R02), which is supplied with the OS/32 MTM (04-083), must be run 
from an MTM terminal. Once started, this CSS will interactively explain its own use and 
assist in tailoring itself to the user’s installation. 


3. Rename the NEOU62.TSK as FOU.TSK. 
4. EOUF7.CSS must then be run to update the CSSs created above. 


no 
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Users with Of /32 RO6-O1 
In order to properly update the Ease-of-Use System, the user must do the following: 


1. The Program Environment Monitor Task (NEOUF7.TSK) must be placed on the system 
volume and system account. 


EOU.CSS (03-342 F°04), which is supplied with OS/32 MTM [04-083 (R06-01)], must be run 
from the system console with the volume set to the system volume. 


to 


3. EOUGIF7.CSS must then also be run to update the existing CSS. 


A description of the use of the program development facilitics available can be found in the 
Developing Programs with FORTRAN VII - A Guide, Publication Number 48-010, and in 
the OS/32 Multi-Terminal Monitor (MTM) Reference Manual, Publication Number 48- 
023. 
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7.4 HIGH LEVEL OPERATOR COMMAND LEVEL (HLOC) 
This section is applicable only to the foliowing packages: 


04-149 -- Universal Fortran Language System 
04-459 -- Fortran VII Compiler 


The FORTRAN VIL HWLOC procedures are supplied as part of this package to support users of 
OS/32 RO5-02 or users OS/32 ROG6-O1 or above who do not wish to use the FORTRAN VII 
Ease-of-Use procedures. 


Description of F71LOC.CSS 


P7HILOC.CSS ts a command substitution system file which generates the following help and CSS 
files: 


e F7CAHILP - Help file for compilation. 

© F7CHHLP - Help file for compilation and task establishment 

© F7CLGAILP - Help file for compilation, task establishment and execution. 

e F7C.CSS - CSS to compile under any 1°7 compiler. 

e F7Z.05S - CSS to compile under 1°72. 

e F70.CSS - CSS to compile under F70. 

e F7CE.CSS* - CSS to compile under any F7 compiler and to establish the task. 


e F7CLG.CSS* - CSS to compile under any F7 compiler, to establish and to execute the task. 
*NOTE: The user task is established with the F7RTLGO.LIB Run-Time Library. 


F7Z.CSS and F70.CSS take five parameters. 
1, FORTRAN input source filename without extension; extension is assumed to be .FTN. 


2. Object filename without extension; extension is assumed to be .OBJ. The default object 
filename is the first parameter concatenated with OBJ. 


3. Source listing device or filename. The default is PR: 


4. Start options for compilation. OPTIMIZE and BATCH are default options for the 
compilers in the F70 and °7Z CSSs. 


5. Load size for either compiler. The default is 300KB for F70 and 300KB for F7Z. 


If in-line assembler code is present, the assembler output is sent to a file with the name formed 
by the concatenation of .CAL either with the second parameter, if it exists, or with the first 
parameter. Then the resulting code is assembled using CAL /32. 


F7Z.CSS and F70.CSS attempt to allocate a scratch file of 4000 contiguous sectors for table 
paging. If the CSS fails to allocate 4000, the CSS will attempt to allocate 2000 sectors and then 
1000 sectors. If this last attempt fails, the CSS will not assign a temporary file for paging. 
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F7C.CSS takes six parameters. The first is Z or O for compilation under the Universal or Global 
mode compilers. The next five parameters are the same as those parameters passed to F7Z.CSS 


or F70.CSS. 
F7CE.CSS takes 7 parameters: 


1 


Z or O for compilation under Universal or Global mode compilers, respectively. 
FORTRAN input source filename, (Same as the first parameter of f7Z.C5S, F7O.CSS.) 


Task filename without extension; extension will be defined as /TSIX. The default task 
filename is the second parameter concatenated with .TSK. 


Source listing device or filename. (Same as parameter 3 for F7Z.C8S, F70.CSS.) 
Start options for compilation. 
fuoad size for compilers. 


x. if LINK ROO-01 or lower is used to build the task. This option should not’ be specified 
for any release above LINK R00-01. 


F7CLG.CSS takes the same 7 parameters as F7CE.CSS. 


Example: 


Let NIMROD.LPTN contain in-line assembly code and many subprograms. A source 
listing with cross-reference is to be sent to the PR: (start option for cross-reference is 
XREF). The following invocation of F7CLG.CSS compiles with optimization, establishes 
and executes the task, which will be called NIMROD. TSK. 


F7CLG O,NIMROD,, XR {200 


Please refer to the Developing Programs with FORTRAN VII - A Guide, Publication 
Number 48-010, for a complete explanation of how to fully exploit the special features of the 
FORTRAN VII Z, and O Compilers. 
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7.5 ESTABLISHING THE WRITABLE CONTROL STORE (WCS) SUPPORT PROGRAMS 


This section is applicable only to the following packages: 


04-149 -- Universal FORTRAN Language System 
04-175 -- Series 3200 FORTRAN Enhancement Package 


The user must establish the writable control store (WCS) support programs as resident, 
executive tasks with a priority higher than any other task which uses WCS. To do so, 
the user must run a version of LINK compatible with the operating system installed on the 
user’s computer. The user should enter from the system console the following sequence of 
commands to LINK in order to establish both versions of the WCS Support Program: 


OPT PRI=(11,11) Establish task with initial priority of 11, 
maximum priority of If. 


OPT ET,RES|,FL,DFL] Make it an executive, resident task. Specify 
the floating point options if so equipped. 


OPT ABS=0 The UDL is already included in the object 
file(LINK will respond with a warning 
which can be ignored.) 


OPT WORK=50 Get storage for start options 

IN LDWCS.OBJ Include the WCS Support Program version 
to be established. 

MAP PR: Get a map of the task. 

BU LDWCS.TSK Build the task. 

END 


This establishes the task as an exccutive task ([i-task) with the highest priority; it is sufficient 
to establish it as a task with priority higher than any other task which uses WCS. 


Note that the task has been established using ABS=0. Setting ABS to any other value will lead 
to illegal instructions when the task is run. Furthermore, if the task is established as non- 
resident or if the task is deleted from memory, the task must be reloaded and restarted after a 
power failure in order to initialize the contents of WCS. Failure to do so will leave the 
contents of WCS undefined and lead to unpredictable results and system crashes. 
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7.6 WRITABLE CONTROL STORE (WCS) RUN-TIME LIBRARIES (RTLs) 


This section is applicable only to the following packages: 


04-149 -- Universal FORTRAN Language System 
04-175 -- Series 3200 FORTRAN Enhancement Package 


There are two mathematical WCS hbraries, one with argument checking and one without. It is 
recommended that when a program is being debugged, the task be established using the 
argument checking library. This will enable the user to find any illegal argument types which 
are being passed to any library routines. 


More information on the WOS Libraries may be found in the System Math Library Reference 
Manual, Publication Number 48-025, and the High Speed FORTRAN Package User’s Guide, 
Publication Number 29-643. 


When the libraries are to be used with the FORTRAN VII compilers, they should first be 
merged with the remainder of the FORTRAN VII Run-Time Library through use of the 
F7RTLLIB.CSS file which is supplied with the following FORTRAN VII packages: 
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8 MICROCODE RUN-TIME LIBRARY (RTL) ROUTINES 
This section is applicable only to the following packages: 


04-149 -- Universal Fortran Language System 
04-175 -- Series 3200 Fortran Enhancement Package 


There are three versions of the microcode RTL routines: one, MICRTL45.WCS, for the Models 
3240, 3250, 3250XP, and 38200MPS/3260MPS central processing unit (CPU), the second, 
MICRTL30.WCS, for the Models 3212, 3230, 3230XP, 3230MPS and the third, 
MICRTLAP.WCS, for the 3200MPS/3260MPS Auxiliary Processing Unit(APU). When using the 
3200MPS/3260MPS, load the CPU with MICRTL45.WCS and the APU with MICRTLAP.WCS. 
When using a 3230MPS, load the CPU and APU with MICRTL30.WCS. These routines are 
supplied in the form of writable control store image files. The microcode RTL routines from the 
WCS image file may be loaded in the WCS of a processor using the loader and powerfail 
monitor (MPSLPFM) supplied with the 3200 series WCS Support Software Package, with Part 
number 04-174. For more information on the LPIFM routines, consult the packaging documents 
supplied with the 04-174 package. 


Recommended Microcode RTL Processor(s 


MICRTL45.WCS 3240, 3250, 3260CPU, 3250XP 


MICRTL30.WCS 3212, 3230, 3230MPS (CPU & APU), 3230XP 


MICRTLAP.WCS 3260APU 


The only difference between MICRTL30.WCS and MICRTLAP.WCS is in the implementation of 
the routine RXXR (called to raise a single precision number to a single precision power.) In the 
latter, RXXR is implemented using Double Precision arithmetic, the same as is done in the 
MICRTL45.WCS. MICRTL30.WCS implements RXXR in single precision. 


9. FORTRAN VII Performance Utilities 


This section is applicable only to the following packages: 


04-149 -- Universal Fortran Language System 
04-177 -- Fortran Performance Utilities Package 


The FORTRAN VII Performance measurement support routines are Execution Profile Analyzer 
(XPA) and Call Recorder Analyzer (CRA). These routines are included in the object library file 
F7PFUT.OBJ. The modules, XPATIMR, .CRA, or .CRAXPA, should be included from this file 
when building the task whose run-time performance is to be monitored. For more information on 
the use of CRA and XPA, refer to the Developing Programs with FORTRAN VII - A 
Guide, Publication Number 48-010. 
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APPENDIX A - RELEASE NOTES 


This appendix contains important release notes about each product, known problems and 
avoidance procedures. 


« FORTRAN VIO & Z 


This section is applicable only to the following packages: 


04-149 -- Universal Fortran Language System 
04-180 -- Fortran VII Universal Compiler Upgrade 
04-459 -- Fortran VII Compiler 


NOTES 


The RO6 compilers have been enhanced to generate more optimal code in cases where 
alternate returns are used. This enhancement enables the the compiler’s optimization 
algorithms to better determine the optimal locations to place load/store instructions for 
globally allocated registers. This enhancement makes code generated by the RO6 
compilers to be incompatible with code generated by earlier (RO5-xx) compilers. 
Therefore, subprograms with alternate returns in their argument list and subprograms 
that call subprograms with alternate returns must be compiled by the same release of 


compilers, .i.e., RO6 or RO5-xx, however, it is advised that you recompile with R06 in this 
situation. 


KNOWN PROBLEMS 


9 


tad 


The optimization summary may contain erroneous information about dead code being 


eliminated, although this is not the case. This occurs in code sequences similar to the 
one below: 


15 continue 
call xxx() 
call zzz (i) 
if (i .ne.O ) then 


ent = cntt+l 
Af(ent .1t. 120) then 
go to 15 
else 
write(6,*) ‘a message' 
end if 
end if 


The optimization summary will specify that the "go to 15" and “else” statements were 
deleted. 


Avoidance - If you encounter such messages and you determine that it the optimization 
is erroncous, gencrate an assembly listing and check to make sure the code hasn’t been 


deleted. 


A program with a large number of CHARACTER constant arguments passed to 
external programs may produce "COMPILER INTERNAL TABLIE OVERFLOW" 
message and terminate with an "find of task code 9”. 
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This problem can be avoided by limiting the number of CHARACTER constant 
arguments passed to subprograms. Use of character scalars initialized with the desired 
character constants (e.g. via DATA statements) in place of such arguments is 
recommended. 


C.8.: 
CALL ABCD(?ASK’,...) 
may be replaced with 


CHARACTER*3 ASK /?ASK’/ 


CALL ABCD(ASK.,...) 


3. Double Precision constants exceeding the stated precision may yield larger values. 
There is no avoidance procedure. 


e.g. 
REAL*8 X 
READ(3,*) X 
WRITE(5,100) X 


100 FORMAT(2X,Z) 
END 


If the input value of X is ’0.045D0’, then the internal representation, as shown, is: 
3FB85 LEB851EB852 


If the input value of X is ’0.04500000000000000000000000000000000000’, then the internal 
representation, as shown, is slightly larger: 


3F B85 LEB851EB853 
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e FORTRAN VII Run-Time Library 


This section is applicable only to the following packages: 


04-149 -- Universal Fortran Language System 
04-180 -- Fortran VII Universal Compiler Upgrade 
04-459 -- Fortran VII Compiler 


NOTES 
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1. 


Dynamic memory management - The I/O support routines in the RO6 Run-Time 
Library has been rewritten in C. This was done to facilitate the addition of the new 
features that are part of RO6 and to improve on the library’s maintainability. 


The use of the new library with existing applications may introduce compatibility 
problems for applications which use the get and release storage SVCs (SVC 2, code 2 and 
SVC 2, code 3). It is strongly advised to modify your code if your application uses both get 
and release storage SVCs. You do not need to modify your code if only the get storage 
SVC is used. 


The following routines are provided to use in place of the get and release storage SVOs. 
Note that they are callable from the assembly level only. They are not accessible from 


the FORTRAN level. 
« MALLOC(NEED) 


MALLOC is used in place of the get storage SVC. Sample instructions needed to 
invoke malloc; 
SIZE EQU 200 
GETBLK DB 0,2 
DC 1 
BLKSIZ DAC SIZE 


LA 14, BLKSIZ 
BAL 15, MALLOC 


Register 14 points to malloc’s argument list and register 15 must be used as the link 
register. The address of the start of the memory allocated is always returned in 
general purpose register 13. This address must be recorded if you plan to restore (free) 
or partially restore the memory later. The value of register 13 is 0 if the allocation 
request failed. Note that the argument list is some arbitrary location which 
containing the amount of space, in bytes, requested. In the above example the location 
which formerly defined the size for the get storage SVC is used. 


If the use of registers 13-15 presents a problem in your code then it suggested that you 
use a few extra instructions to provide an interface. 
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SIS 1,12 Get space from the stack 
STM 13,0(1) Save the registers 

LA 14, BLKSIZ Set up arguments 

BAL 15,malloc Get storage 


LR RX,13 Move address to desired 
register 

ST RX,SAVEADDR Record address for FREE 

LM 13,0(1) Get registers back 

AIS 1,12 Put space back on the stack 


Note that "RX" is the register that previously received the starting address from the 
get storage SVC, 


FREE(ADDRESS) 


FREE is used in place of the release storage SVC. Note that FREE isn’t 100% 
equivalent to the release storage SVC. The release storage SVC returns storage 
starting from the top of dynamic storage, i.e., the storage which was last allocated. 
FREE releases storage starting from the address it is given in the argument. This 
address must correspond to an address which was returned after a call to MALLOC. 
Passing an arbitrary address will produce unpredictable results. The amount of 


storage release by FREI is equal to the amount allocated by the corresponding 
MALLOC call. 


The code is similar to MALLOC’s: 


LA 14,SAVEADDR Set up the argument list 
BAL 15,FREE Invoke it 


Register 13 will contain a zero (0) if no errors were detected, otherwise register 13 is set 
to one (1). If the use of registers 13 - 15 is problematic in your code use a similar code 
sequence as described for MALLOC. 


PFREE(ADDRESS,AMOUNT) 


PFREE is provided if you only want to release a partial amount of the storage which 
was previously allocated by MALLOC. PFRISE requires two arguments; the starting 
address of the chunk of storage and the amount of storage to release. The storage is 
released starting from the top of the chunk. Note that you cannot partially release 
more than what was previously allocated. 


Sample instructions for PFREE 


SAVEADDR DSF 1 
AMOUNT DSF 1 


LA 14,SAVEADDR Set up the argument list 
BAL. 15, PFREE Invoke it 


The argument list is simply two contiguous fullwords; the first being the address and 
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the second the amount to release. 


Storage requirements - The dynamic storage required to support the ROG RTL has 
increased. The formula to determine the amount of workspace needed is as follows: 


work = 8kb + I/O buffer space + (68 * #4 of Logical Units) + 114 + 268 
task queue size + message ring size. 


8kb is the workspace required for the RTL stack 


68 is the amount of space needed for each logical unit and 114 is the size of the static 
communication area. 


268 is the maximum workspace required to support start options used by the GETOPTS 
routine. 


Task queue size and message ring size must be factored in if the task is using the task 
queue service trap. The workspace required for the task queue is calculated as follows: 


4 * # of queue entries + 8 


Note that the number of queue entries default is 48. You may increase this size using the 
INIT routine. The message ring does not require any workspace if the default size of 2 is 
used. Otherwise, the workspace required for the message ring is calculated as follows: 


76 * # of message buffers 


For an explanation of the amount of 1/O buffer space needed please refer to Chapter 7 of 
Developing Programs with FORTRAN VII - A Guide. 


Run time stack size - The size of the run time stack can now be changed via a patch 
using the OS/32 PATCH utility. This may become necessary if your program uses the 
new REENTRANT feature of the compiler. The default size of the run time stack is 
X’2000’. To modify the stack apply the following patch: 


OBJ F7LIB60.LIB, NEWRTL.LIB,LIB 
GET a Up COPY. 

BIAS O:P 

VER 14,0, 2000 

MOD 14,0, 3000 

SAVE COPY, TERM 


END 


In the above example the size of the stack was increased from 8192 to 12228. Note that 


the amount of workspace required by your task will increase if the size of the run-time 
stack is increased. 


Shared segments - In the RO6 release it was necessary to add COMMON entries to the 
initialization routine (__U) to support the RTOLBIT/LTORBIT — and 
TRANSCENDENTAL compiler start options. ‘Therefore,  ~_U must cannot be included 
in a shared segment. To build a shared segment that contains all modules except __U, 
use the OS/32 Library Loader as follows: 


*AL F7RTL.TMP,IN,128/8 <--- allocate the new library 
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*L LIBLDR 

*AS 1,F7RTL.LIB/S, SRO <--- assign the RO6 library 

*AS 2,E7RTL.TMP <--- assign the new library 

*AS 3,NULL: 

*AS 5,CON: 

aS T 

eDU: 22s UU <--- dupe all modules until __U 
>C0 1,3 <--- do a copy to go past __U 
>DUY A j2 <--- dupe the remaining modules 
>END 


Follow the directions in Chapter 7, Linking Shared Segments, to build the shared 
library. 


5. Reliance Notes: 


e Reliance FORTRAN programs compiled and linked under version 6 of the FORTRAN 
Language System require more memory to run than under version 5. If your Reliance 
thread size is not large enough then a FORTRAN program will fail with the message 
INVALID ATTEMPT TO CALL FORTRAN ROUTINE .V’ in the Reliance journal 
and cither the message “INSUFFICIENT MEMORY’ or the message "UNABLIX TO 
GET ENOUGH STORAGE TO DO I/O’ on the system console. 


RELNLOC, as supplied with Reliance Plus RO8.01, generates FORTRAN VII compile 
and link CSS files that use version 5 of the FORTRAN VII compilers. If you are using 
version 6 of the FORTRAN VII compilers then the following files must be updated as 
shown below: 


RFCOMPC.CSS - change all references of 53 and 05 to 60 on lines 51, 53, 61, 73, 75, 
80, 107, 109, 114. 


RFLINK.CSS - change all references of F7RTLA.OBJ to F7RTLA.LIB on lines 95, 97, 
112, 114. Also, for Rehance FORTRAN production programs include the line "IN 
F7RELGO.LIB/S" before line 94 (IN REL.OBJ/S). Note that any user-created 
filename.LNK file must also be updated. 


RFLINK.HLP - change F7RTLA.OBJ to F7RTLA.LIB on line 31. 
6. Reading and Writing Past End-of-File 


To fulfill the Military Standard 1753 extensions, reading and writing past an end-of-file 
record will be permitted for unlabeled magnetic tape sequential files. However, this feature 
does not conform to the ANSI ’77 standard. Since reading past end-of-file is not typical of 
conventional programming (writing past end-of-file being typical), only this aspect is 
addressed below. 


When reading, if the input statement (READ, ACCEPT) does not contain an "END=" or 
an "IOSTAT=" specifier, reading past end-of-file record is not permitted. If an "END=" or 
"IOSTAT=" specifier is used in a READ or ACCEPT statement and an end-of-file record 
is encountered, the Run-Time system will remember that an end-of-file record has been 
read on that unit. Only a BACKSPACE or a REWIND can reset this information to allow 
another read up to the same end of file record. In addition, reading past end-of-file wil! not 
cause the file size to grow (i.e. the EOF marker does not advance). 


If an ENDFILE record is written onto a file connected to a unit, the file pointer is 
positioned after the end-of-file record. This end-of-file record is counted as a logical record 
for purposes of random access. 
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If “END=" or "IOSTAT=" specifier is specified in a READ statement, and an end-of-file 
record is encountered, the file is left positioned after the end-of-file record. Any subsequent 
input/output statement will cause a read/write beyond that end-of-file record. This 
operation will return whatever is in the device following the end-of-file record. 


KNOWN PROBLEMS 


1. When using FOR:TRAN VII with Reliance, if the thread is not given an adequate size, 
two undefined. error codes are generated followed by an error code 3, "UNABLE TO 


GET ENOUGH 5TORAGE TO DO I/O". 


Avoidance - increase the size of the thread. 


to 


The following usage of a FORMAT statement will result in unintented results: 


WRITE (6,100) (A(I),I=1,10) 
100 FORMA (1X,5(17)) 


If the array contains all zeros the output would appear as: 


e) e) O O 0 
O O 0 0 10) 


The problem is that the formatter does not restart from the first parenthesis after the 
first record is written. Thus, in the above example, the °1X’ is not included in the 


second record. 


Avoidance - rewrite the FORMAT statement as: FORMAT((1X,5(I7))) 


3. Backspacing an unformatted magnetic tape file whose BLOCKSIZE is less than (RECL 
+ 4) does not backspace the expected number of records. 


Avoidance - When using an OPEN statement to assign the magnetic tape, set the 
RECL to a minimum of (RECL + 4). For example: 


OPEN(LU, FILE ="MAG1:’, RECL=1024, BLOCKSIZE=1028). 
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« FORTRAN VII Documentation 


KNOWN PROBLEMS 
1. Document - Developing Programs with FORTRAN VII - A Guide: 


e In the section titled “Linking Shared Segments", on page 7-22, all places where the 
RTL routine .U is referred should be changed to __U. Also, this section should 
contain information stating that ~~U cannot be included in a shared segment. 
(Please refer to release note 4 of the FORTRAN VII Run-Time Library). 


e In Appendix A the section titled "RTL Constants" should be replaced with the 
following text: 


The RTL initialization routine, __U, contains an 
entry point (.STACKSZ) defining the size of the 
run-time stack set to a default size of X'2000'. 
You may modify the stack size with the following 
patch: 


OBJ F7LIB60.LIB, NEWRTL.LIB,LIB 
GET ~__U,COPY 

BIAS O:P 

VER 14,0, 2000 

MOD 14,0, 3000 

SAVE COPY,TERM 


END 


In the above example the size of the stack was 
increased from 8192 to 12228. Note that the 
amount of workspace required by your task will 
increase if the size of the run-time stack is 
increased. 


Note that the .CONLEN entry is no longer used. Console length is determined by 
the sysgen’s default. 
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APPENDIX C - PROBLEM REPORT PROCEDURES 


To report any problems, obtain Software Change Request (SCR) forms from your local 
Concurrent Computer Corporation office and send the SCRs to the SCR COORDINATOR of 
CONCURRENT COMPUTIER CORPORATION, 2 Crescent Place, Oceanport, NJ 07757. 
Please send the SCR with: 


listing of FORTRAN source (assembly if using FORTRAN VII O or Z) and cross-reference 
listing 


e the FORTRAN source on tape in BACKUP form 

e description of the problein 

e run-time data if applicable 

* revision, update and patch number of the compiler used 
° a listing of the LINK map of the failing program 


Customers with appropriate service contracts may call 1-800-73CARES (USA only) for 
immediate assistance. 
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